home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / SPEZIAL / 7UP.220 / CLIPBRD / CLIPBRD.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1994-03-03  |  754 b   |  36 lines
  1. {$X+}                   { ignoriere Rückgabewert }
  2. {
  3. CLIPBRD stellt den Pfad auf das Verzeichnis, das in CLIPBRD.INF angegeben
  4. ist. Auf Wunsch eines einzelnen Herrn, der seinen TT lieber ohne Harddisk
  5. betreibt und lieber mit Diskette und Ramdisk arbeitet, weil die Harddisk
  6. soviel Lärm macht. Wie recht er doch hat. ;-)
  7. }
  8.  
  9. program clipbrd;
  10.  
  11. uses gem,tos;
  12.  
  13. const
  14.   PATH_MAX = 128;
  15.   
  16. var
  17.   f : text;
  18.   path : string[PATH_MAX];
  19.  
  20. begin
  21.     appl_init;
  22.     {$I-}
  23.     assign(f, 'CLIPBRD.INF');
  24.     reset(f);
  25.     if ioresult = 0 then begin
  26.       read(f,path);
  27.       close(f);
  28.       path[ord(path[0])+1] := char(0);
  29.       Dcreate(path);
  30.       scrp_write(path);
  31.     end
  32.     else
  33.       form_alert(1,'[3][|CLIPBRD.INF nicht gefunden!][  OK  ]');
  34.     {$I+}
  35.     appl_exit;
  36. end.